#!/usr/bin/perl 

use strict;
use DBI;
use CGI;
use TTraker;

initialize_dbi();
print_header();

my $query = CGI->new;
my $num = $query->param('num');
my $name = $query->param('name');
my $job = $query->param('job');
my $loc = $query->param('loc');

my $sent_from = $ENV{'REMOTE_ADDR'};
my $now = get_local_time($loc);
my $string = "$now,$sent_from,${cgi_ref}trak_00_start_up.pl";

log_info ($string);

pay_activity_screen_from_pm ($num, $name,$job, $loc);

db_disconnect();



